home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / ear / fraphix1.lha / FraphiX.LHA / FraphiX / rexx / InverteAnim.rexx < prev    next >
OS/2 REXX Batch file  |  1995-08-02  |  2KB  |  83 lines
  1. /* Questo script ARexx serve per invertire l'ordine dei fotogrammi */
  2. /* $VER1.0 */
  3.  
  4. if~show("L","rexxsupport.library") then do
  5.    if addlib('rexxsupport.library',0,-30,0) then
  6.       say "Rexxsupport.library caricata"
  7.    else do
  8.       say "Rexxsupport.library non trovata"
  9.       exit 10
  10.    end
  11. end
  12.  
  13. /* Legge i parametri passati come variabili di AmigaDOS */
  14.  
  15. open('input','Env:Primo.FX',read)
  16.       primo = readln('input')
  17. close('input')
  18.  
  19. open('input','Env:Nome.FX',read)
  20.       Nomefinale = readln('input')
  21. close('input')
  22.  
  23. open('input','Env:Nome2.FX',read)
  24.       Nomeiniziale = readln('input')
  25. close('input')
  26.  
  27. Fraphix_Dir = "Fraphix:"
  28.    nome=nome || " " || primo || " " || "show"
  29.  
  30. comando = "C:Echo >Env:FlagARexx " || "Attivo"
  31. address command comando
  32.  
  33.  
  34. LF = x2c("a")
  35. say "Invio messaggio: ATTENDI"
  36. call delay 50
  37. /* Cancella tutti gli eventuali fotogrammi presenti in Fraphix_Store: */
  38. say LF || "Pulizia in corso..." || LF
  39. comando = "c:delete >nil: Fraphix_Store:Frame#?"
  40. /* say comando */
  41. address command comando
  42.  
  43.  
  44. comando = Fraphix_Dir || "BuildAnim/BuildAnim "
  45. comando = comando || Nomeiniziale || " Fraphix_Store:FRAME0001 Split"
  46. /* say comando */
  47. say "Separazione in corso..."
  48. address command comando
  49.  
  50. /* Inverte Tutti i fotogrammi */
  51. comando = "Sys:Rexxc/rx " || Fraphix_Dir || "Rexx/InverteFrame.rexx"
  52. address command comando
  53.  
  54. /* Rifonde insieme i fotogrammi */
  55. comando = "Sys:Rexxc/rx " || Fraphix_Dir || "Rexx/JoinFrame.rexx"
  56. address command comando
  57.  
  58. comando = "C:Delete Env:FlagARexx"
  59. address command comando
  60.  
  61. /* Cancella tutti gli eventuali fotogrammi presenti in Fraphix_Store: */
  62. say LF || "Pulizia in corso..." || LF
  63. comando = "c:delete >nil: Fraphix_Store:Frame#?"
  64.  
  65.  
  66.  
  67. say "Invio messaggio: CONTINUA"||LF||"Attesa risposta..."
  68. call delay 50
  69.  
  70. address "FRAPHIX"
  71. options results
  72. QUIT
  73.  
  74. if (rc=0) then
  75.       say lf||"Risposta Ricevuta."
  76.      else do
  77.       say lf||"Errore "||rc||lf||result
  78.       end
  79.      
  80.  
  81. call delay 300
  82.  
  83.